home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ ScanDisk Logging 1.xpl < prev    next >
Text File  |  2002-02-12  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Startup/Shutdown\Startup\Windows 9x/Me\30) Scandisk"
  5. "NAME"="ScanDisk Logging"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Append to existing log"
  8. "TEXT 2"="Overwrite existing log"
  9. "TEXT 3"="No logging"
  10. "DESCRIPTION 1"="If Windows detects that your PC has crashed, it starts ScanDisk while booting to correct any HD failures."
  11. "DESCRIPTION 2"="When it does this, it creates a log of all of the actions it carries out in a file called scandisk.log in the your HD's root folder. This can get quite lengthy, since it normally appends to the exiting log."
  12. "DESCRIPTION 3"="Setting the second option will make ScanDisk get rid of the existing log (if there is one) and replace it with a new one. This will make the log file smaller."
  13. "DESCRIPTION 4"="The third option disables all logging. This means you can delete the scandisk.log file, but it may prove potentially hazardous if Scandisk accidently changes something and you have no way of finding out how to repair it."
  14. "COMMENT 1"="Thanks to Chris [cgthompson@mailandnews.com] and Axcel216 [axcel216@aol.com] for the idea!"
  15. "COMMENT 2"="Thanks to J÷rg Jenderek [joerg@pcialias.localnet] for the bug notice!"
  16. "VERSION"="1.20"
  17. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "CONTACTURL"="http://www.xteq.com/"
  20. "OSVERSION"="101010"
  21.  
  22. w=GetWinDir
  23.  
  24. SUB Plugin_Initialize
  25.  s=IniReadValue(w & "Command\scandisk.ini","Custom","SaveLog")
  26.  
  27.  'minimnized
  28.  s=Lcase(s)
  29.  'find ;
  30.  i=0
  31.  i=InStr(1,s,";")
  32.  'do we have a comment?
  33.  if i>0 then
  34.     s=left(s,i-1)
  35.     s=rtrim(s)
  36.  end if
  37.  
  38.  if s="append" then '
  39.   Call SetUIElement(1, true)
  40.  end if
  41.  if s="overwrite" then '       ; Off, Append, Overwrite
  42.   Call SetUIElement(2, true)
  43.  end if
  44.  if s="off" then
  45.   Call SetUIElement(3, true)
  46.  end if
  47. END SUB
  48.  
  49. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  s=GetUIElement(1)
  51.  if s=true then
  52.   Call IniWriteValue(w & "Command\scandisk.ini","Custom","SaveLog","Append       ; Off, Append, Overwrite")
  53.  end if
  54.  
  55.  s=GetUIElement(2)
  56.  if s=true then
  57.   Call IniWriteValue(w & "Command\scandisk.ini","Custom","SaveLog","Overwrite       ; Off, Append, Overwrite")
  58.  end if
  59.  
  60.  s=GetUIElement(3)
  61.  if s=true then
  62.   Call IniWriteValue(w & "Command\scandisk.ini","Custom","SaveLog","Off       ; Off, Append, Overwrite")
  63.  end if
  64. END SUB
  65.  
  66. SUB Plugin_Terminate
  67. END SUB
  68.